home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / stripper.arc / NUDE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  1.0 KB  |  41 lines
  1. 10   'Modified from the HP 9845 Basic by G. Wesley  12/29/82
  2. 20   KEY OFF
  3. 30   CLS
  4. 40   DEFINT A-C,P,W-Z
  5. 50   A=0:B=1:C=2:D=3  'PALET COLORS
  6. 60   SCREEN 1
  7. 70   COLOR 3,1
  8. 80   PAINT (1,1),D
  9. 90   OPEN "data.sav" FOR INPUT AS #1
  10. 100      IF EOF (1) GOTO 140
  11. 110      INPUT#1,W,X,Y,Z
  12. 120      LINE (W,X)-(Y,Z),A
  13. 130  GOTO 100
  14. 140  'PAINTING
  15. 150  PAINT (27,150),A,A  'HAIR
  16. 160  PAINT (50,185),A,A  'HAIR
  17. 170  PAINT (185,98),A,A  'HAIR
  18. 180  PAINT (304,108),A,A 'SHOE
  19. 190  PAINT (307,95),A,A  'SHOE
  20. 200  PAINT (295,100),C,A 'SHOE
  21. 210  PAINT (27,165),C,A  'BOW
  22. 220  PAINT (1,174),B,A   'BACKGROUND BOT
  23. 230  PAINT (1,150),B,A   'BACKGROUND TOP
  24. 240  PAINT (216,141),B,A 'BACKGROUND MID
  25. 250  PAINT (60,124),B,A  'LEFT EYE BLUE
  26. 260  PAINT (64,144),B,A  'RIGHT EYE BLUE
  27. 270  PAINT (80,125),C,A:PAINT (81,130),C,A:PAINT (85,131),C,A:PSET (84,126),C    'LIPS RED
  28. 280  PAINT (151,92),C,A:PSET (154,94),C 'RN
  29. 290  PAINT (97,90),C,A:PAINT (99,89),C,A:PSET (96,91),C  'LN
  30. 300  W=0
  31. 310  FOR X=1 TO 15
  32. 320  IF X=8 THEN X=9
  33. 330  FOR Y=0 TO 1
  34. 340  FOR Z=0 TO 30
  35. 350  COLOR X,Y
  36. 360  NEXT Z,Y,X
  37. 370  COLOR 8,W
  38. 380  WHILE INKEY$<> "":WEND
  39. 390  WHILE INKEY$="":WEND
  40. 400  W=W+1:IF W>4 THEN CLS:NEW:ELSE GOTO 310
  41.